
(define f (lambda (x)
            (if (= x 0)
                x
                ( = 10 
                (call-cc (lambda (k) (progn (define cc k) (f (- x 1)))))))))

(f 1)
(cc 10)
